Imports System
Imports Microsoft.VisualBasic
Namespace flspartnerweb

  Partial Class default_aspx_vb
    Inherits System.Web.UI.Page
    Public Sub Page_Load(_sender As Object, _e As EventArgs)
            If Request.QueryString("do") = Nothing Then
                Response.Write("<html>")
                Response.Write("<head>")
                Response.Write("<title>FLS Partner Web - Sign in</title>")
                Response.Write("<link rel='stylesheet' href='style.css'>")
                Response.Write("</head>")
                Response.Write("<body bgcolor='#FFFFFF' onLoad=""document.forms[0].elements[0].focus();"">")
                Response.Write("<table height='100%' width='100%' cellpadding='0' cellspacing='0'>")
                Response.Write("<tr>")
                Response.Write("<td align='right' valign='middle'>")
                Response.Write("<table class='mainTable' cellpadding='0' cellspacing='0' background='gui/login_bg.gif' width='732' height='121'>")
                Response.Write("<form action='logIn.aspx' method='post'>")
                Response.Write("<tr>")
                Response.Write("<td width='150'></td>")
                Response.Write("<td>")
                Response.Write("<table cellpadding='2' cellspacing='2' border='0'>")
                Response.Write("<tr><td class='formBold'>Brugernavn:</td><td><input type='text' name='username'></td></tr>")
                Response.Write("<tr><td class='formBold'>Adgangskode:</td><td><input type='password' name='password'></td><td><input type='submit' value='Log ind'></td></tr>")
                Response.Write("</table>")
                Response.Write("</td>")
                Response.Write("</tr>")
                Response.Write("</form>")
                Response.Write("</table>")
                Response.Write("</td>")
                Response.Write("</tr>")
                Response.Write("</table>")
                Response.Write("</body>")
                Response.Write("</html>")
            End If
    End Sub


  End Class
End Namespace
